home *** CD-ROM | disk | FTP | other *** search
/ Publication 1 / Publication_01_19xx_-_de_Side_A.d64 / publication note (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  94 lines
  1. 10 ifa=1then13
  2. 12 a=1:load"charset",8,1
  3. 13 poke53272,24:poke53281,15:poke53280,11:poke646,0:print"[147]":poke53269,0
  4. 14 print" [186]";:forg=1to36:print"[187]";:nextg:print"[186]"
  5. 15 forg=1to21:print" [188]                                    [188]":nextg
  6. 16 print" [186]";:forg=1to36:print"[187]";:nextg:print"[186]":gosub45000
  7. 17 print"[196][146] [198][146] [194][146] [199][146] $[146] [195][146] [193][146] [197][146] $[146] ![146] ([146]"
  8. 18 print"[164][146] [166][146] [162][146] [167][146] %[146] [163][146] [161][146] [165][146] %[146] [166][146] #[146]"
  9. 19 print"[152][171][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][173]":gosub48000
  10. 20 print"[151]hallo !"
  11. 21 print"nun habt ihr sie endlich im lauf-"
  12. 22 print"werk[220]die erste [208][213][194][204][201][195][193][212][201][207][206]-issue."
  13. 23 print"in diesem kleinen file will ich"
  14. 24 print"nur noch schnell ein paar hinweise"
  15. 25 print"zur benutzung des mags geben."
  16. 26 print"[175][176] [193][195][200][212][213][206][199] !"
  17. 27 print"[177][178] dieses mag ist freeware[220]d.h. du"
  18. 28 print"   kannst die gesamte disk kopier-"
  19. 29 print"   en sooft du willst[220]allerdings"
  20. 30 print"   nur ohne das directory zu ver-"
  21. 31 print"   @ndern.":poke198,0
  22. 32 gosub47000:gosub50000:print"":poke53269,0
  23. 33 print"[201].[212][193][211][212][197][206][194][197][204][197][199][213][206][199] [219]"
  24. 34 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  25. 35 print"die men]s im mag werden entweder"
  26. 36 print"durch pfeil ([166] z.b. hauptmen])"
  27. 37 print"oder per 'flimmerbalken' gesteu-"
  28. 38 print"ert."
  29. 39 print"die balken werden dabei mit den"
  30. 40 print"cursortasten ([161]hoch [162]runter) ge-"
  31. 41 print"steuert.einen men]punkt w@hlt man"
  32. 42 print"wie gehabt mit [210][197][212][213][210][206] an.":gosub46000
  33. 43 print"bitte taste dr]cken !":gosub47000:gosub50000
  34. 44 print"":poke53269,0
  35. 45 print"[201][201].[212][197][216][212][160][204][197][211][197][206] :"
  36. 46 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  37. 47 print"nachdem man einen text angew@hlt"
  38. 48 print"hat[220]wird dieser eingeladen und die"
  39. 49 print"erste seite angezeigt."
  40. 50 print"nun gilt folgende tastenbelegung :"
  41. 51 print
  42. 52 print"f1 - springe zu seite x"
  43. 53 print"bl@ttern mit cursortasten ([166][165][161][162])"
  44. 54 print
  45. 55 print"mit [210][197][212][213][210][206] kommt man wieder ins"
  46. 56 print"hauptmen].der text bleibt solange"
  47. 57 print"im speicher[220]bis ein [193][206][196][197][210][197][210] text"
  48. 58 print"angew@hlt wird.bis dahin erfolgt"
  49. 59 print"der einsprung an alter textstelle.":poke198,0
  50. 61 gosub48000:gosub47000:gosub50000
  51. 62 print"":poke53269,0
  52. 63 print"soweit zur magbedienung ! nun noch"
  53. 64 print"einmal die dringende bitte dieses"
  54. 65 print"mag mit einsendungen und abos zu"
  55. 66 print"supporten."
  56. 67 print"see ya  (hope so !),"
  57. 68 print"yours [218][197][201][212][199][197][201][211][212]/pc"
  58. 69 print"da crediz..."
  59. 70 print"[163][163][163][163][163][163][163][163][163][163][163][163]"
  60. 71 print"coding & charset [219] zeitgeist"
  61. 72 print"sprites          : hwk":gosub46000
  62. 73 poke198,0:gosub47000:poke53269,0:sys64767
  63. 45000 sys57812("zahlen.spr*"),8,1:poke780,0:sys65493:poke53285,12:poke53269,1
  64. 45001 poke53271,1:poke53277,1
  65. 45002 poke53248,150:poke53249,120:poke53286,11:poke53287,1
  66. 45003 forg1=1to10:poke2040,223+g1:forg2=1to400:nextg2,g1
  67. 45004 poke53271,0:poke53277,0:poke53269,0:return
  68. 46000 sys57812("auto.spr*"),8,1:poke780,0:sys65493
  69. 46001 poke2040,224:poke2041,225:poke53269,3:poke53249,210:poke53251,210
  70. 46002 poke53288,1:poke53287,1:poke53286,11:poke53285,12:poke53269,3:poke53276,3
  71. 46004 poke53264,3:forg=15to5step-5:poke53248,g:poke53250,g+23:forg1=1to51
  72. 46005 nextg1,g:poke53264,0:forg=232to45step-5:poke53248,g:poke53250,g+23
  73. 46006 forg1=1to50:nextg1,g
  74. 46999 return
  75. 47000 geta$:ifa$=""then47000
  76. 47001 return
  77. 48000 sys57812("uhr.spr*"),8,1:poke780,0:sys65493:q=0
  78. 48001 poke2040,224:poke2041,224:poke53285,12:poke53286,11:poke53287,1
  79. 48002 poke53269,3:poke53248,70:poke53249,70:poke53276,3:poke53251,70
  80. 48003 poke53264,2:poke53250,12:poke53288,1
  81. 48004 forg=1to50:nextg:poke2040,225:poke2041,225:forg=1to50:nextg:poke2040,226
  82. 48005 poke2041,226:forg=1to50:nextg:poke2040,227:poke2040,227:forg=1to50:nextg
  83. 48006 poke2041,228:poke2040,228:forg=1to50:nextg:poke2040,229:poke2041,229
  84. 48007 forg=1to50:nextg:poke2040,230:poke2041,230:forg=1to50:nextg:poke2040,231
  85. 48008 poke2041,231:forg=1to50:nextg:poke2040,232:poke2041,232
  86. 48009 forg=1to50:nextg:poke2040,224:poke2041,224
  87. 48010 q=q+1:ifq=5thenreturn
  88. 48011 goto48004
  89. 48999 return
  90. 50000 print""
  91. 50001 forg=1to17
  92. 50002 print"                                    "
  93. 50003 nextg:return
  94.